From: Kenichi Handa <handa@m17n.org>
Date: Mon, 18 Aug 1997 10:54:31 +0000 (+0000)
Subject: (thai-consonant-input): Typo fixed.
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~79666
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=50c3dd5bc03eb5f3a90cba3e9fa9bcf5848c8776;p=emacs.git

(thai-consonant-input): Typo fixed.
---

diff --git a/leim/quail/thai.el b/leim/quail/thai.el
index b78fb3fa46c..d70ff14eff0 100644
--- a/leim/quail/thai.el
+++ b/leim/quail/thai.el
@@ -175,7 +175,8 @@ This variable is used in Quail internally only.")
   (let ((quail-package-name (quail-name)))
     (setq thai-current-keyboard-type
 	  (cond ((string= quail-package-name "thai-pattachote") 'pattachote)
-		(t (string= quail-package-name "thai-kesmanee") 'kesmanee)))
+		((string= quail-package-name "thai-kesmanee") 'kesmanee)
+		(t (error "Invalid Quail package %s" quail-package-name))))
     (copy-alist (nth 2 (thai-keyboard-info thai-current-keyboard-type)))))
 
 ;; Thai Kesmanee keyboard support.